## X-07 BASIC FILE.
##
## NAME: burger
##
 0 '****************
 1 '* CANON BURGER *
 2 '* HEBDO No135  *
 3 '****************
 4 DEFINTA-Z:CONSOLE ,,,0,1:GOSUB 10000
 5 V=6:A=RND(0)*100+2:CLS 
 10  FONT$ (128)="0,0,0,0,0,0,0,252
 12  FONT$ (129)="0,0,0,0,0,110,252,252
 14  FONT$ (130)="132,252,132,252,132,252,132,252
 16  FONT$ (131)="0,120,48,72,72,48,48,252
 18  FONT$ (132)="0,0,0,0,0,0,0,0
 20  FONT$ (133)="0,120,48,72,72,120,252,252
 22  FONT$ (136)="0,0,120,252,0,0,0,252
 24  FONT$ (137)="0,0,120,252,0,120,252,252
 26  FONT$ (138)="132,252,180,204,204,180,108,252
 28  FONT$ (139)="0,120,48,204,72,48,48,252
 30  FONT$ (144)="0,120,48,204,72,48,48,252
 32  FONT$ (145)="48,72,132,132,72,120,252,252
 34  FONT$ (146)="132,180,204,2,132,204,180,252
 36  FONT$ (249)="124,128,252,124,124,252,128,124
 38  FONT$ (251)="248,4,252,248,248,252,4,248
 40  FONT$ (252)="0,124,128,252,124,252,128,124
 42  FONT$ (253)="0,248,4,252,248,252,4,248
 44  FONT$ (150)="120,48,48,72,72,48,72,252
 46 LOCATE 9,0:PRINT "par"," FC  DOR Pierre  FC"
 48 GOSUB 4000:GOSUB 4000
 50 DIMA(18,3)
 52 DATA5,5,1,2,1,2,1,5,5,5,5,5,1,2,1,2,1,5,5
 53 DATA5,5,3,2,1,2,3,1,1,1,1,1,3,2,1,2,3,5,5
 54 DATA5,5,1,2,3,2,1,1,1,3,1,1,1,2,3,2,1,5,5
 55 DATA5,5,3,2,1,2,3,5,5,5,5,5,3,2,1,2,3,5,5
 56 FORI=0TO 3:FORH=0TO 18:READA(H,I):NEXTH,I
 58 CLS:FORH=0TO 3:FORI=0TO 18:LOCATE I,H
 59 PRINT CHR$(127+A(I,H));:NEXTI,H
 60 ON R+1GOTO62,68,70,72,66,64
 62 DI(2)=1:DI(1)=1:AA(2)=14:AA(1)=3:BB(1)=0
 63 BB(2)=0:X=9:Y=1:CC=16:GOTO100
 64 DI(2)=1:DI(1)=1:AA(2)=14:AA(1)=3:BB(1)=0
 65 BB(2)=0:X=9:Y=3:CC=16:GOTO100
 66 DI(2)=1:DI(1)=-1:AA(2)=14:AA(1)=3:BB(1)=3
 67 BB(2)=3:X=9:Y=0:CC=16:GOTO100
 68 DI(2)=-1:DI(1)=1:AA(2)=14:AA(1)=3:BB(1)=3
 69 BB(2)=3:X=9:Y=0:CC=20:GOTO100
 70 DI(2)=1:DI(1)=-1:AA(2)=14:AA(1)=3:BB(1)=3
 71 BB(2)=3:X=9:Y=1:CC=12:GOTO100
 72 DI(2)=-1:DI(1)=1:AA(2)=7:AA(1)=11:BB(1)=3
 73 BB(2)=3:X=9:Y=1:CC=18:GOTO100
 100 J=STICK(0)
 102 ON JGOSUB 1000,104,1010,104,1020,104,1030
 104 ON A(X,Y)GOTO106,108,110
 106 IFA$="83"THENA$="":GOTO112:ELSE A$="83":GOTO112
 108 A$="85":GOTO112
 110 A$=""
 112 E=SCREEN(X,Y):IFE>143ANDE<150THEN9500
 113 LOCATE X,Y:PRINT A$;
 194 IFDE<>0THENG=G+1:IFG=9THENG=0:DE=0:L=0
 196 W=W+1:IFW=3THENW=1
 198 IFDE=3ORW=LTHEN100
 200 H=W:DH=0
 202 IFA(AA(H),BB(H))=3THENIFBB(H)>YTHENDH=-1:GOTO250
 204 IFY>BB(H)THENIFA(AA(H),BB(H)+1)=3THENDH=1:GOTO250
 206 IFAA(H)=0ANDDI(H)=-1THENDI(H)=1:GOTO250
 208 IFAA(H)=18ANDDI(H)=1THENDI(H)=-1:GOTO250
 210 IFA(AA(H)+DI(H),BB(H))=5THENDI(H)=-DI(H)
 250 LOCATE AA(H),BB(H):PRINT CHR$(127+A(AA(H),BB(H)));
 252 IFDH<>0THENBB(H)=BB(H)+DH:ELSE AA(H)=AA(H)+DI(H)
 253 Z=SCREEN(AA(H),BB(H)):IFZ=138ORZ=131ORZ=133THEN9500
 254 LOCATE AA(H),BB(H):PRINT CHR$(143+A(AA(H),BB(H)));:GOTO100
 1000 IFA(X,Y)=3THENGOSUB 2000:Y=Y-1:RETURN 
 1005 RETURN 
 1010 IFX=18THENRETURN 
 1011 IFA(X+1,Y)=5THENRETURN 
 1012 IFA(X,Y)<>2THENGOSUB 2000:X=X+1:RETURN 
 1014 LOCATE X+1,Y:PRINT "83";:XX=X:YY=Y:A(X,Y)=1
 1016 GOSUB 3000:X=X+1:RETURN 
 1020 IFY=3THENRETURN 
 1022 IFA(X,Y+1)=3THENGOSUB 2000:Y=Y+1:RETURN 
 1024 RETURN 
 1030 IFX=0THENRETURN 
 1031 IFA(X-1,Y)=5THENRETURN 
 1032 IFA(X,Y)<>2THENGOSUB 2000:X=X-1:RETURN 
 1034 LOCATE X-1,Y:PRINT "83";:XX=X:YY=Y:A(X,Y)=1
 1036 GOSUB 3000:X=X-1:RETURN 
 2000 LOCATE X,Y:PRINT CHR$(127+A(X,Y));
 2010 RETURN 
 3000 BEEPYY+1,1:LOCATE XX,YY:PRINT CHR$(127+A(XX,YY));
 3001 IFYY=3THEN3003
 3002 E=SCREEN(XX,YY+1):IFE>143THENBEEP-1,2:GOSUB 3500
 3003 IFYY=3THENBEEP10,1:SC=SC+10:C=C+1:IFC=CCTHENC=0:GOTO9000:ELSE RETURN 
 3004 YY=YY+1:IFA(XX,YY)=2THEN3008
 3006 LOCATE XX,YY:PRINT "";:GOSUB 8000:LOCATE XX,YY
 3007 PRINT "81";:A(XX,YY)=2:RETURN 
 3008 LOCATE XX,YY:PRINT "";:GOSUB 8000:GOTO3000
 3500 IFAA(1)=XXANDBB(1)=YY+1THENIFDE=0THENDE=2:L=1::ELSE DE=3
 3502 IFAA(2)=XXANDBB(2)=YY+1THENIFDE=0THENDE=1:L=2::ELSE DE=3
 3504 SC=SC+20:RETURN 
 4000 OUT &HF4,255
 4002 OUT &HF3,0
 4004 FORB=255TO 1STEP-1
 4006 OUT &HF2,B
 4008 NEXT
 4010 RETURN 
 5000 DATA2,1,1,1,1,1,2,1,1,1,1,1,2,1,1,1,1,1,2
 5002 DATA2,3,1,1,5,1,2,1,2,3,2,1,2,1,5,1,1,3,2
 5004 DATA2,3,1,3,5,3,2,1,2,1,2,1,2,3,5,3,1,3,2
 5006 DATA2,3,1,1,2,1,1,1,1,3,1,1,1,1,2,1,1,3,2
 5100 DATA5,5,5,2,1,1,1,1,1,2,1,1,1,1,1,2,5,5,5
 5102 DATA5,2,1,2,1,1,1,3,1,1,1,3,1,1,1,2,1,2,5
 5104 DATA5,2,3,1,3,1,1,1,3,1,3,1,1,1,3,1,3,2,5
 5106 DATA5,2,1,1,1,1,1,3,1,2,1,3,1,1,1,1,1,2,5
 5200 DATA2,1,1,1,2,5,5,1,2,1,2,1,5,5,2,1,1,1,2
 5202 DATA2,3,5,3,1,1,1,3,1,1,1,3,1,1,1,3,5,3,2
 5204 DATA2,3,5,3,1,1,1,1,2,3,2,1,1,1,1,3,5,3,2
 5206 DATA2,3,1,3,2,5,5,3,2,1,2,3,5,5,2,3,1,3,2
 5700 DATA5,5,5,2,1,1,5,1,2,1,2,1,5,1,1,2,5,5,5
 5702 DATA5,5,2,1,1,3,1,3,2,1,2,3,1,3,1,1,2,5,5
 5704 DATA5,2,1,1,3,2,1,1,2,1,2,1,1,2,3,1,1,2,5
 5706 DATA2,1,1,1,1,1,3,1,1,3,1,1,3,1,1,1,1,1,2
 5800 DATA5,2,1,1,1,1,1,1,2,1,2,1,1,1,1,1,1,2,5
 5802 DATA5,2,1,1,1,3,1,1,2,5,2,1,1,3,1,1,1,2,5
 5804 DATA5,2,1,3,1,1,1,3,2,5,2,3,1,1,1,3,1,2,5
 5806 DATA5,2,1,1,3,5,3,1,2,1,2,1,3,5,3,1,1,2,5
 8000 FORH=0TO 150:NEXT:RETURN 
 9000 IFSCREEN(X+1,Y)=131THENX=X+1:ELSE X=X-1
 9002 FORE=1TO 6:LOCATE X,Y:PRINT "";:BEEPE*2,1:GOSUB 8000
 9004 LOCATE X,Y:PRINT "83";:BEEPH*5,2:GOSUB 8000:NEXT
 9006 CLS:T=T+1:LOCATE 5,1:PRINT "TABLEAU:";T+1
 9007 IFINT((T+1)/2)=0THENV=V+1
 9008 FORI=0TO 2:LOCATE 1,1:PRINT "F9FB":LOCATE 17,1
 9009 PRINT "F9FB":GOSUB 4000
 9010 LOCATE 1,1:PRINT "FC":LOCATE 17,1
 9011 PRINT "FC":GOSUB 8000:NEXT
 9012 ERASEA:DIMA(18,3)
 9014 R=R+1:IFR=6THENR=0:RESTORE 
 9016 GOTO56
 9500 FORI=60TO 10STEP-10:LOCATE X,Y:PRINT "83";:BEEPI-5,1
 9501 GOSUB 8000:LOCATE X,Y:PRINT "";
 9502 BEEPI,2:NEXT:GOSUB 8000
 9510 CLS:V=V-1:IFV>0THEN58
 9516 CLS:PRINT ," SCORE  :";SC:FORH=0TO 1000:NEXT
 9518 CLS:PRINT ,"Desirez vous rejouer"
 9520 IFTKEY("N")THENEND
 9522 IFTKEY("O")THENRUN
 9524 GOTO9520
 10000  FONT$ (128)="120,132,128,192,112,64,64,128
 10002  FONT$ (129)="0,128,96,16,8,200,112,64
 10004  FONT$ (130)="8,8,44,28,12,4,4,4
 10006  FONT$ (131)="128,128,128,228,136,208,32,36
 10008  FONT$ (132)="240,140,224,172,212,24,128,32
 10010  FONT$ (133)="128,128,128,128,128,128,128,64
 10012  FONT$ (136)="0,0,0,0,0,100,116,116
 10014  FONT$ (137)="164,144,72,68,192,0,0,0
 10016  FONT$ (138)="32,192,4,8,240,24,4,48
 10018  FONT$ (139)="64,128,0,0,0,0,16,208
 10020  FONT$ (144)="56,56,28,28,0,0,0,0
 10022  FONT$ (145)="128,192,56,12,4,12,12,0
 10024  FONT$ (146)="40,36,32,240,192,192,128,0
 10026  FONT$ (147)="124,248,60,16,8,0,0,0
 10030 CLS:PRINT "    8081","  82838485","  ","  ";
 10032 LOCATE 7,1:PRINT "Canon"
 10034 J$="        BURGER ":FORH=1TO 9:LOCATE 8,2
 10035 PRINT MID$(J$,H,6):BEEPH,2:NEXT
 10036 FORH=0TO 100:NEXT:GOSUB 4000:GOSUB 4000
 10037 FORH=0TO 300:NEXT:RETURN 
 20000 IFINKEY$=CHR$(158)THENBEEP10,10:ELSE 20000
